home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / fs.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  3.9 KB  |  114 lines
  1. if (!defined &_FS_H) {
  2.     eval 'sub _FS_H {1;}';
  3.     require 'spriteTime.ph';
  4.     require 'kernel/procTypes.ph';
  5.     if (!defined &__STDC__) {
  6.     if (defined &major) {
  7.     }
  8.     if (defined &minor) {
  9.     }
  10.     }
  11.     eval 'sub FS_BLOCK_SIZE {4096;}';
  12.     eval 'sub FS_MAX_PATH_NAME_LENGTH {1024;}';
  13.     eval 'sub FS_MAX_NAME_LENGTH {255;}';
  14.     eval 'sub FS_USER_FLAGS {0xfff;}';
  15.     eval 'sub FS_READ {0x001;}';
  16.     eval 'sub FS_WRITE {0x002;}';
  17.     eval 'sub FS_EXECUTE {0x004;}';
  18.     eval 'sub FS_APPEND {0x008;}';
  19.     eval 'sub FS_CLOSE_ON_EXEC {0x010;}';
  20.     eval 'sub FS_PDEV_MASTER {0x020;}';
  21.     eval 'sub FS_NAMED_PIPE_OPEN {0x040;}';
  22.     eval 'sub FS_PFS_MASTER {0x080;}';
  23.     eval 'sub FS_NON_BLOCKING {0x100;}';
  24.     eval 'sub FS_CREATE {0x200;}';
  25.     eval 'sub FS_TRUNC {0x400;}';
  26.     eval 'sub FS_EXCLUSIVE {0x800;}';
  27.     eval 'sub FS_READABLE { &FS_READ;}';
  28.     eval 'sub FS_WRITABLE { &FS_WRITE;}';
  29.     eval 'sub FS_EXCEPTION { &FS_EXECUTE;}';
  30.     eval 'sub FS_EXCEPTABLE { &FS_EXCEPTION;}';
  31.     eval 'sub FS_ATTRIB_LINK {1;}';
  32.     eval 'sub FS_ATTRIB_FILE {2;}';
  33.     eval 'sub FS_SET_ALL_ATTRS {0x1F;}';
  34.     eval 'sub FS_SET_TIMES {0x01;}';
  35.     eval 'sub FS_SET_MODE {0x02;}';
  36.     eval 'sub FS_SET_OWNER {0x04;}';
  37.     eval 'sub FS_SET_FILE_TYPE {0x08;}';
  38.     eval 'sub FS_SET_DEVICE {0x10;}';
  39.     eval 'sub FS_LOCALHOST_ID {-1;}';
  40.     eval 'sub FS_FILE {0;}';
  41.     eval 'sub FS_DIRECTORY {1;}';
  42.     eval 'sub FS_SYMBOLIC_LINK {2;}';
  43.     eval 'sub FS_REMOTE_LINK {3;}';
  44.     eval 'sub FS_DEVICE {4;}';
  45.     eval 'sub FS_REMOTE_DEVICE {5;}';
  46.     eval 'sub FS_LOCAL_PIPE {6;}';
  47.     eval 'sub FS_NAMED_PIPE {7;}';
  48.     eval 'sub FS_PSEUDO_DEV {8;}';
  49.     eval 'sub FS_PSEUDO_FS {9;}';
  50.     eval 'sub FS_XTRA_FILE {10;}';
  51.     eval 'sub FS_USER_TYPE_UNDEFINED {0;}';
  52.     eval 'sub FS_USER_TYPE_TMP {1;}';
  53.     eval 'sub FS_USER_TYPE_SWAP {2;}';
  54.     eval 'sub FS_USER_TYPE_OBJECT {3;}';
  55.     eval 'sub FS_USER_TYPE_BINARY {4;}';
  56.     eval 'sub FS_USER_TYPE_OTHER {5;}';
  57.     eval 'sub FS_NUM_GROUPS {8;}';
  58.     eval 'sub IOC_REPOSITION {1;}';
  59.     eval 'sub IOC_GET_FLAGS {2;}';
  60.     eval 'sub IOC_SET_FLAGS {3;}';
  61.     eval 'sub IOC_SET_BITS {4;}';
  62.     eval 'sub IOC_CLEAR_BITS {5;}';
  63.     eval 'sub IOC_TRUNCATE {6;}';
  64.     eval 'sub IOC_LOCK {7;}';
  65.     eval 'sub IOC_UNLOCK {8;}';
  66.     eval 'sub IOC_NUM_READABLE {9;}';
  67.     eval 'sub IOC_GET_OWNER {10;}';
  68.     eval 'sub IOC_SET_OWNER {11;}';
  69.     eval 'sub IOC_MAP {12;}';
  70.     eval 'sub IOC_PREFIX {13;}';
  71.     eval 'sub IOC_WRITE_BACK {14;}';
  72.     eval 'sub IOC_MMAP_INFO {15;}';
  73.     eval 'sub IOC_GENERIC_LIMIT {((1<<16)-1);}';
  74.     eval 'sub IOC_MAX_BYTES {4096;}';
  75.     eval 'sub IOC_BASE_ZERO {0;}';
  76.     eval 'sub IOC_BASE_CURRENT {1;}';
  77.     eval 'sub IOC_BASE_EOF {2;}';
  78.     eval 'sub IOC_GENERIC_FLAGS {0xFF;}';
  79.     eval 'sub IOC_APPEND {0x01;}';
  80.     eval 'sub IOC_NON_BLOCKING {0x02;}';
  81.     eval 'sub IOC_ASYNCHRONOUS {0x04;}';
  82.     eval 'sub IOC_CLOSE_ON_EXEC {0x08;}';
  83.     eval 'sub IOC_LOCK_SHARED {0x1;}';
  84.     eval 'sub IOC_LOCK_EXCLUSIVE {0x2;}';
  85.     eval 'sub IOC_LOCK_NO_BLOCK {0x8;}';
  86.     eval 'sub IOC_OWNER_FAMILY {0x1;}';
  87.     eval 'sub IOC_OWNER_PROC {0x2;}';
  88.     eval 'sub FS_OWNER_READ {00400;}';
  89.     eval 'sub FS_OWNER_WRITE {00200;}';
  90.     eval 'sub FS_OWNER_EXEC {00100;}';
  91.     eval 'sub FS_GROUP_READ {00040;}';
  92.     eval 'sub FS_GROUP_WRITE {00020;}';
  93.     eval 'sub FS_GROUP_EXEC {00010;}';
  94.     eval 'sub FS_WORLD_READ {00004;}';
  95.     eval 'sub FS_WORLD_WRITE {00002;}';
  96.     eval 'sub FS_WORLD_EXEC {00001;}';
  97.     eval 'sub FS_SET_UID {04000;}';
  98.     eval 'sub FS_SET_GID {02000;}';
  99.     eval 'sub FS_EXISTS {0x0;}';
  100.     eval 'sub FS_ANYID {-1;}';
  101.     eval 'sub FS_ATTACH_READ_ONLY {0x1;}';
  102.     eval 'sub FS_DETACH {0x2;}';
  103.     eval 'sub FS_ATTACH_LOCAL {0x4;}';
  104.     eval 'sub FS_DEFAULT_DOMAIN {0x8;}';
  105.     eval 'sub FS_USER_PREFIX_LENGTH {64;}';
  106.     eval 'sub FS_NO_SERVER {0;}';
  107.     if (!defined &FS_EXPORTED_PREFIX) {
  108.     eval 'sub FS_EXPORTED_PREFIX {0x1;}';
  109.     eval 'sub FS_IMPORTED_PREFIX {0x2;}';
  110.     eval 'sub FS_LOCAL_PREFIX {0x4;}';
  111.     }
  112. }
  113. 1;
  114.